For Each Cell In Vba